1 IF A=0 THEN A=1:LOAD "PGM",8,1
2 POKE 55,255:POKE 56,131:CLR
3 BA=33792:REM BASE ADDRESS
4 DP=BA+3:REM DE-ACTIVATE PGM
5 SA=BA+6:REM SET ADDRESS
6 BS=BA+9:REM BSAVE
7 BL=BA+12:REM BLOAD
8 DS=BA+15:REM DOS COMMANDS
9 FM=BA+18:REM FILL MEMORY
10 XF=BA+21:REM XFER MEMORY
11 HO=BA+24:REM HIRES ON
12 HF=BA+27:REM HIRES OFF
13 MO=BA+30:REM MULTICOLOR ON
14 MF=BA+33:REM MULTICOLOR OFF
15 CE=BA+36:REM 80 COLUMN CHAR DRIVER
16 CD=BA+39:REM CHAR DRIVER
17 DC=BA+42:REM DATA COMPRESS
18 UC=BA+45:REM UNCOMPRESS DATA
19 CW=BA+48:REM COPY WINDOW
20 RW=BA+51:REM RESTORE WINDOW
21 PL=BA+54:REM PLOT A POINT
22 UP=BA+57:REM UNPLOT A POINT
23 DR=BA+60:REM DRAW A LINE
24 UD=BA+63:REM UNDRAW A LINE
25 BF=BA+66:REM BITMAP FILL
26 SB=BA+69:REM SPLIT BORDER
27 BR=BA+72:REM 3D BAR
28 SE=BA+75:REM EIGHT SPRITE MODE
29 FS=BA+78:REM FOURTEEN SPRITE MODE
30 SO=BA+81:REM SPRITE ON
31 SD=BA+84:REM SPRITE DEFINE
32 SP=BA+87:REM SPRITE PLOT
33 SR=BA+90:REM SPRITE REFLECT
34 RS=BA+93:REM SPRITE REVERSE
35 SX=BA+96:REM SPRITE XFER
36 AN=BA+99:REM ANIMATE SPRITE
37 CA=BA+102:REM CEASE ANIMATE
38 JO=BA+105:REM JOYSTICK ON
39 JF=BA+108:REM JOYSTICK OFF
40 WC=BA+111:REM COLOR WINDOW
41 RW=BA+114:REM REVERSE WINDOW
42 FW=BA+117:REM FILL WINDOW
43 RD=BA+120:REM DIR READER
44 SYS SA,57344,52224:REM SET ADDRESS
45 SYS BA:REM ACTIVATE PGM
46 SYS HO:REM HIRES ON
47 REM
48 REM
49 REM PROGRAM BEGINS HERE
1000 SYS HF:SYS DP:REM HIRES+PGM OFF